Top 10k strings from Biology - Heredity (1984)(Longman Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
3 ,t)=p$(n,t):
3 NORMAL
2 ~? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
2 PRESS REF. No. (
2 G$(N)="Rr"
2 COL.BLIND
2 ? ? ? ? ? ? ? ? ? ? ? ? ?
2 >@>@>@>@>@>@>@>@>@>@>@>@>@>@>@>@
2 >@>@>@>@>@>@>@>@>@>@>@>@>@
2 )="WHITE":
2 TO HOLD DISPLAY "
1 t$="SEX LINKAGE"
1 t$="INCOMPLETE DOMINANCE"
1 redity 1<
1 g$(n)=g$(9
1 g$(n)=g$(8
1 g$(n)=g$(7
1 g$(n)=G$(N,2
1 g$(n)="Xx"
1 Z$;Z$;Z$;Z$;"
1 VERSION 1.1
1 T$="SIMPLE DOMINANCE"
1 SUM=SUM+E(N)
1 SIMPLE DOMINANCEA
1 ONE MOMENT IF YOU PLEASE "
1 GENOTYPE "
1 G(X,Y)=G(X,Y)+1
1 G$(N)="xX"
1 G$(N)="rR"
1 G$(N)="bB"
1 G$(N)="RR"
1 G$(N)="Bb"
1 E$="."+E$:
1 Do you want to cross-breed?(Y/N)"
1 DIFFERENCE
1 BLACKWHITE
1 BBbbBbBbBbBbBBbbBbN
1 A$="."+A$:
1 A$;E(N);"%"
1 ;"PHENOTYPE"
1 ;"HEREDITY":
1 )OF MATE 2
1 )OF MATE 1"
1 )="Rr"))=a(1
1 )="Rr"))+25
1 )="R"));"
1 )="PINK "):
1 )="PINK ")
1 )="NORML":
1 )="NORML");C$(1
1 )="CBLND":
1 )="BLACK":
1 );"...?";:
1 );" x ";g$(2
1 "results are determined by","probability."
1 "The PUNNET SQUARE will show","all the EXPECTED results of","fertilization, but the ACTUAL"
1 "Heredity"
1 " You can see this with Yellow","(dominant) and Green pea seeds."
1 " The difference between them","grows less with larger samples."
1 to start
1 YELLOW SEED
1 TO START DISPLAY
1 TO START
1 TO SELECT
1 TO RESTART
1 THE TOTAL IS NOT 100! TRY AGAIN
1 SIMPLE DOMINANCE
1 SEX-LINKAGE
1 SAMPLE SIZE - MULTIPLE OF 4, PLEASE:
1 PUNNET SQUARES
1 PUNNET SQUARES
1 PROGRAM OPTIONS
1 PHENOTYPE
1 NEW OPTION "
1 MERCURIAN PULP PRODUCTS
1 INCOMPLETE DOMINANCE ";
1 GREEN SEED
1 GENOTYPE
1 FOR NEW OPTION
1 FERTILIZATIONS (Min.40)
1 Expected %age ";C$(N);":");
1 EXPECTED
1 END OF PROGRAM ":
1 END OF PROGRAM
1 ANOTHER RUN
1 A NUMBER
1 (";M$;")/";S;"=";D;"%"
1 ";g$(m);" x ";
1 STOP THE TAPE - PRESS ANY KEY "
1 STOP THE TAPE